rm(list=ls())
library(tidyverse)

# Read coalitions data ----
mayor_coalitions <- read_rds(here::here("data","processed","elections","mayor_coalitions_2000_2016.rds"))

# Select variables and eliminate duplicates
mayor_coalitions <- mayor_coalitions %>% 
  select(ano_eleicao,sigla_ue,sigla_uf,nome_municipio,tipo_legenda,sigla_partido,nome_coligacao,composicao_coligacao) %>% 
  distinct()

# Number of mun per year
mayor_coalitions %>% 
  distinct(ano_eleicao,sigla_ue) %>% 
  group_by(ano_eleicao) %>% 
  summarise(n_obs = n())
  
# Exclude 2016
mayor_coalitions <- mayor_coalitions %>% 
  filter(ano_eleicao != 2016)

# Coaltions of more than 1 party ------------

# Eliminate Isolated
coalitions <- mayor_coalitions %>% 
  filter(tipo_legenda=="COLIGACAO")

# Keep only obs in which sigla_partido in composicao_coligacao (to eliminate wrong duplicates)
coalitions <- coalitions %>% 
  ungroup() %>%
  mutate(verif = ifelse(str_detect(string = composicao_coligacao, pattern = paste0("\\b", sigla_partido, "\\b")),1,0)) %>% 
  group_by(nome_municipio,sigla_uf,ano_eleicao,sigla_partido) %>%
  filter(verif == 1) %>% 
  select(-verif) %>% 
  arrange(sigla_uf,ano_eleicao,sigla_partido)

# Number of duplicates still remaining
duplicates_initial <- coalitions %>%  # need to check with other source(website UOL)
  group_by(ano_eleicao,nome_municipio,sigla_uf,sigla_partido) %>%
  filter(n()!= 1)

 
# # To correct the information, we use the following sources:
# # For 2012, we used information from uol: https://eleicoes.uol.com.br/2012/candidatos/


# Eliminate wrong duplicates duplicates ---------
# To make the code faster let us break the dataframe in two and then put them together after the exclusions
coalitions_not_2012 <- coalitions %>% 
  filter(ano_eleicao != 2012)

coalitions_2012 <- coalitions %>% 
  filter(ano_eleicao == 2012)

coalitions_2012_cleaned <- coalitions_2012 %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ABARE" &  sigla_partido == "PP" & nome_coligacao == "A FORCA DA MUDANCA")) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "AGUAS FORMOSAS" &  sigla_partido == "PMDB" & nome_coligacao == "PMDB /PSL/PPS/PSB")) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "AGUAS FORMOSAS" &  sigla_partido == "PSB" & nome_coligacao == "PMDB /PSL/PPS/PSB"))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AGUAS FORMOSAS" &  sigla_partido == "PSL" & nome_coligacao == "PMDB /PSL/PPS/PSB"))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AGUAS FORMOSAS" &  sigla_partido == "PPS" & nome_coligacao == "PMDB /PSL/PPS/PSB"))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALAMBARI" &  sigla_partido == "PV" & nome_coligacao == "PV - PSD" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALAMBARI" &  sigla_partido == "PSD" & nome_coligacao == "PV - PSD" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALVARES FLORENCE" &  sigla_partido == "DEM" & nome_coligacao == "ALVARES NAO PODE PARAR" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALVARES FLORENCE" &  sigla_partido == "PDT" & nome_coligacao == "ALVARES NAO PODE PARAR" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALVARES FLORENCE" &  sigla_partido == "PPS" & nome_coligacao == "ALVARES NAO PODE PARAR" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALVARES FLORENCE" &  sigla_partido == "PRB" & nome_coligacao == "ALVARES NAO PODE PARAR" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALVARES FLORENCE" &  sigla_partido == "PSB" & nome_coligacao == "ALVARES NAO PODE PARAR" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALVARES FLORENCE" &  sigla_partido == "PSC" & nome_coligacao == "ALVARES NAO PODE PARAR" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALVARES FLORENCE" &  sigla_partido == "PSDB" & nome_coligacao == "ALVARES NAO PODE PARAR" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALVARES FLORENCE" &  sigla_partido == "PTB" & nome_coligacao == "ALVARES NAO PODE PARAR" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ALVARES FLORENCE" &  sigla_partido == "PTN" & nome_coligacao == "ALVARES NAO PODE PARAR" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "DEM" & nome_coligacao == "O PROGRESSO CONTINUA" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "DEM" & nome_coligacao == "SERIEDADE, PROSPERIDADE E CONTINUIDADE" & composicao_coligacao == "PP/PMDB/PSL/DEM/PSD/PCDOB/PTDOB" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PCDOB" & nome_coligacao == "O PROGRESSO CONTINUA" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PCDOB" & nome_coligacao == "SERIEDADE, PROSPERIDADE E CONTINUIDADE" & composicao_coligacao == "PP/PMDB/PSL/DEM/PSD/PCDOB/PTDOB" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PMDB" & nome_coligacao == "SERIEDADE, PROSPERIDADE E CONTINUIDADE" & composicao_coligacao == "PP/PMDB/PSL/DEM/PSD/PCDOB/PTDOB" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PP" & nome_coligacao == "O PROGRESSO CONTINUA" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PP" & nome_coligacao == "SERIEDADE, PROSPERIDADE E CONTINUIDADE" & composicao_coligacao == "PP/PMDB/PSL/DEM/PSD/PCDOB/PTDOB" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PSD" & nome_coligacao == "SERIEDADE, PROSPERIDADE E CONTINUIDADE" & composicao_coligacao == "PP/PMDB/PSL/DEM/PSD/PCDOB/PTDOB" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PSL" & nome_coligacao == "O PROGRESSO CONTINUA" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PSL" & nome_coligacao == "O PROGRESSO CONTINUA" ))%>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PSL" & nome_coligacao == "SERIEDADE, PROSPERIDADE E CONTINUIDADE" & composicao_coligacao == "PP/PMDB/PSL/DEM/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AMERICANO DO BRASIL" &  sigla_partido == "PTDOB" & nome_coligacao == "SERIEDADE, PROSPERIDADE E CONTINUIDADE" & composicao_coligacao == "PP/PMDB/PSL/DEM/PSD/PCDOB/PTDOB"  )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARAGARCAS" &  sigla_partido == "PCDOB" & nome_coligacao == "ARAGARCAS NAO PODE PARAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARAGARCAS" &  sigla_partido == "PR" & nome_coligacao == "ARAGARCAS NAO PODE PARAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARAGARCAS" &  sigla_partido == "PSB" & nome_coligacao == "ARAGARCAS NAO PODE PARAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARAGARCAS" &  sigla_partido == "PSD" & nome_coligacao == "ARAGARCAS NAO PODE PARAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARAGARCAS" &  sigla_partido == "PT" & nome_coligacao == "ARAGARCAS NAO PODE PARAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARAPUTANGA" &  sigla_partido == "PPS" & nome_coligacao == "ARAPUTANGA BRILHARA NOVAMENTE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARAPUTANGA" &  sigla_partido == "PSD" & nome_coligacao == "ARAPUTANGA BRILHARA NOVAMENTE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AREIA BRANCA" &  sigla_partido == "PP" & nome_coligacao == "UNIDOS POR AREIA BRANCA DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AREIA BRANCA" &  sigla_partido == "PSC" & nome_coligacao == "UNIDOS POR AREIA BRANCA DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AROEIRAS" &  sigla_partido == "PMDB" & nome_coligacao == "AROEIRAS PRA FRENTE")) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AROEIRAS" &  sigla_partido == "PR" & nome_coligacao == "AROEIRAS PRA FRENTE")) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AROEIRAS" &  sigla_partido == "PSC" & nome_coligacao == "AROEIRAS PRA FRENTE")) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARRAIAL DO CABO" &  sigla_partido == "PHS" & nome_coligacao == "JUNTOS PARA O DESENVOLVIMENTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARRAIAL DO CABO" &  sigla_partido == "PMDB" & nome_coligacao == "JUNTOS PARA O DESENVOLVIMENTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARRAIAL DO CABO" &  sigla_partido == "PRB" & nome_coligacao == "JUNTOS PARA O DESENVOLVIMENTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARRAIAL DO CABO" &  sigla_partido == "PSD" & nome_coligacao == "JUNTOS PARA O DESENVOLVIMENTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARRAIAL DO CABO" &  sigla_partido == "PSDC" & nome_coligacao == "JUNTOS PARA O DESENVOLVIMENTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ARRAIAL DO CABO" &  sigla_partido == "PT" & nome_coligacao == "JUNTOS PARA O DESENVOLVIMENTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AXIXA" &  sigla_partido == "DEM" & nome_coligacao == "VONTADE DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AXIXA" &  sigla_partido == "PRB" & nome_coligacao == "VONTADE DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "AXIXA" &  sigla_partido == "PV" & nome_coligacao == "VONTADE DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BALSAS" &  sigla_partido == "DEM" & nome_coligacao == "A FORCA DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BALSAS" &  sigla_partido == "PMDB" & nome_coligacao == "A FORCA DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BALSAS" &  sigla_partido == "PR" & nome_coligacao == "A FORCA DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BALSAS" &  sigla_partido == "PRP" & nome_coligacao == "A FORCA DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BALSAS" &  sigla_partido == "PT" & nome_coligacao == "A FORCA DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BARBALHA" &  sigla_partido == "PCDOB" & nome_coligacao == "A BARBALHA E DO POVO - PPS/PC DO B/PR/PTC/PSDC/PSDB/DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BARBALHA" &  sigla_partido == "PPS" & nome_coligacao == "A BARBALHA E DO POVO - PPS/PC DO B/PR/PTC/PSDC/PSDB/DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BENJAMIN CONSTANT" &  sigla_partido == "PCDOB" & nome_coligacao == "VAMOS AVANCAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BENJAMIN CONSTANT" &  sigla_partido == "PDT" & nome_coligacao == "VAMOS AVANCAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BENJAMIN CONSTANT" &  sigla_partido == "PP" & nome_coligacao == "VAMOS AVANCAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BENJAMIN CONSTANT" &  sigla_partido == "PTDOB" & nome_coligacao == "VAMOS AVANCAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BENJAMIN CONSTANT" &  sigla_partido == "PTN" & nome_coligacao == "VAMOS AVANCAR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURI" &  sigla_partido == "DEM" & nome_coligacao == "PMDB-PRB-PSDB-DEM-PSL-PT" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURI" &  sigla_partido == "PMDB" & nome_coligacao == "PMDB-PRB-PSDB-DEM-PSL-PT" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURI" &  sigla_partido == "PRB" & nome_coligacao == "PMDB-PRB-PSDB-DEM-PSL-PT" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURI" &  sigla_partido == "PSDB" & nome_coligacao == "PMDB-PRB-PSDB-DEM-PSL-PT" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURI" &  sigla_partido == "PSL" & nome_coligacao == "PMDB-PRB-PSDB-DEM-PSL-PT" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURI" &  sigla_partido == "PT" & nome_coligacao == "PMDB-PRB-PSDB-DEM-PSL-PT" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURITAMA" &  sigla_partido == "PMDB" & nome_coligacao == "POVO E GOVERNO UNIDOS POR BURITAMA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURITAMA" &  sigla_partido == "PSDB" & nome_coligacao == "POVO E GOVERNO UNIDOS POR BURITAMA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURITAMA" &  sigla_partido == "PTB" & nome_coligacao == "POVO E GOVERNO UNIDOS POR BURITAMA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURITIZEIRO" &  sigla_partido == "PPL" & nome_coligacao == "UM NOVO TEMPO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURITIZEIRO" &  sigla_partido == "PR" & nome_coligacao == "UM NOVO TEMPO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURITIZEIRO" &  sigla_partido == "PSB" & nome_coligacao == "UM NOVO TEMPO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "BURITIZEIRO" &  sigla_partido == "PV" & nome_coligacao == "UM NOVO TEMPO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CACERES" &  sigla_partido == "PSB" & nome_coligacao == "CACERES FORTE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CACERES" &  sigla_partido == "PSD" & nome_coligacao == "CACERES FORTE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAJARI" &  sigla_partido == "PDT" & nome_coligacao == "UNIDOS POR CAJARI 2" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAJARI" &  sigla_partido == "PR" & nome_coligacao == "UNIDOS POR CAJARI 2" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAJARI" &  sigla_partido == "PSDC" & nome_coligacao == "UNIDOS POR CAJARI 2" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAJARI" &  sigla_partido == "PTB" & nome_coligacao == "UNIDOS POR CAJARI 2" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAMBE" &  sigla_partido == "PSB" & nome_coligacao == "PSC/PSL/PTN/PSB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAMBE" &  sigla_partido == "PSC" & nome_coligacao == "PSC/PSL/PTN/PSB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAMBE" &  sigla_partido == "PSL" & nome_coligacao == "PSC/PSL/PTN/PSB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAMBE" &  sigla_partido == "PTDOB" & nome_coligacao == "PSC/PSL/PTN/PSB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAMBE" &  sigla_partido == "PTN" & nome_coligacao == "PSC/PSL/PTN/PSB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAMPO MAIOR" &  sigla_partido == "PPS" & nome_coligacao == "DESENVOLVENDO CAMPO MAIOR 2" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAMPO MAIOR" &  sigla_partido == "PSD" & nome_coligacao == "DESENVOLVENDO CAMPO MAIOR 2" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CANARANA" &  sigla_partido == "PP" & nome_coligacao == "'CANARANA PODE MAIS' TRABALHO E HONESTIDADE (1)" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CANARANA" &  sigla_partido == "PSD" & nome_coligacao == "'CANARANA PODE MAIS' TRABALHO E HONESTIDADE (1)" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CANARANA" &  sigla_partido == "PT" & nome_coligacao == "'CANARANA PODE MAIS' TRABALHO E HONESTIDADE (1)" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CANDEIAS DO JAMARI" &  sigla_partido == "PMDB" & composicao_coligacao == "PMDB/PSDC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CANDEIAS DO JAMARI" &  sigla_partido == "PSDC" & composicao_coligacao == "PMDB/PSDC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CANDIDO MENDES" &  sigla_partido == "PCB" & nome_coligacao == "UNIDOS POR UMA CANDIDO MENDES MELHOR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CANDIDO MENDES" &  sigla_partido == "PMDB" & nome_coligacao == "UNIDOS POR UMA CANDIDO MENDES MELHOR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CANDIDO MENDES" &  sigla_partido == "PRB" & nome_coligacao == "UNIDOS POR UMA CANDIDO MENDES MELHOR I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAPELA DO ALTO ALEGRE" &  sigla_partido == "PCDOB" & composicao_coligacao == "PRB/PDT/PT/PMDB/PSC/PSB/PRP/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAPELA DO ALTO ALEGRE" &  sigla_partido == "PDT" & composicao_coligacao == "PRB/PDT/PT/PMDB/PSC/PSB/PRP/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAPELA DO ALTO ALEGRE" &  sigla_partido == "PMDB" & composicao_coligacao == "PRB/PDT/PT/PMDB/PSC/PSB/PRP/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAPELA DO ALTO ALEGRE" &  sigla_partido == "PRB" & composicao_coligacao == "PRB/PDT/PT/PMDB/PSC/PSB/PRP/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAPELA DO ALTO ALEGRE" &  sigla_partido == "PRP" & composicao_coligacao == "PRB/PDT/PT/PMDB/PSC/PSB/PRP/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAPELA DO ALTO ALEGRE" &  sigla_partido == "PSB" & composicao_coligacao == "PRB/PDT/PT/PMDB/PSC/PSB/PRP/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAPELA DO ALTO ALEGRE" &  sigla_partido == "PSC" & composicao_coligacao == "PRB/PDT/PT/PMDB/PSC/PSB/PRP/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CAPELA DO ALTO ALEGRE" &  sigla_partido == "PT" & composicao_coligacao == "PRB/PDT/PT/PMDB/PSC/PSB/PRP/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CARRANCAS" &  sigla_partido == "PMDB" & nome_coligacao == "PMDB/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CARRANCAS" &  sigla_partido == "PV" & nome_coligacao == "PMDB/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CASSILANDIA" &  sigla_partido == "DEM" & nome_coligacao == "AMOR E RESPEITO POR CASSILANDIA I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CASSILANDIA" &  sigla_partido == "PR" & nome_coligacao == "AMOR E RESPEITO POR CASSILANDIA I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CASTANHAL" &  sigla_partido == "PMDB" & nome_coligacao == "SOCIAL DEMOCRACIA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CASTANHAL" &  sigla_partido == "PSD" & nome_coligacao == "SOCIAL DEMOCRACIA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CASTANHAL" &  sigla_partido == "PSDB" & nome_coligacao == "SOCIAL DEMOCRACIA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CURACA" &  sigla_partido == "PMDB" & nome_coligacao == "UNIDOS POR CURACA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CURACA" &  sigla_partido == "PPS" & nome_coligacao == "UNIDOS POR CURACA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CURACA" &  sigla_partido == "PSD" & nome_coligacao == "UNIDOS POR CURACA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CURACA" &  sigla_partido == "PTB" & nome_coligacao == "A FORCA DA RENOVACAO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "CURACA" &  sigla_partido == "PTC" & nome_coligacao == "A FORCA DA RENOVACAO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "DIAMANTINO" &  sigla_partido == "PDT" & nome_coligacao == "DIAMANTINO PARA TODOS I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "DIAMANTINO" &  sigla_partido == "PMN" & nome_coligacao == "DIAMANTINO PARA TODOS I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "DOVERLANDIA" &  sigla_partido == "PMDB" & composicao_coligacao == "PMDB/PTN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "DOVERLANDIA" &  sigla_partido == "PTN" & composicao_coligacao == "PMDB/PTN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "EUNAPOLIS" &  sigla_partido == "DEM" & composicao_coligacao == "PP/PSL/PSDB/PMDB/PR/DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "EUNAPOLIS" &  sigla_partido == "PMDB" & composicao_coligacao == "PP/PSL/PSDB/PMDB/PR/DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "EUNAPOLIS" &  sigla_partido == "PP" & composicao_coligacao == "PP/PSL/PSDB/PMDB/PR/DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "EUNAPOLIS" &  sigla_partido == "PR" & composicao_coligacao == "PP/PSL/PSDB/PMDB/PR/DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "EUNAPOLIS" &  sigla_partido == "PSDB" & composicao_coligacao == "PP/PSL/PSDB/PMDB/PR/DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "EUNAPOLIS" &  sigla_partido == "PSL" & composicao_coligacao == "PP/PSL/PSDB/PMDB/PR/DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FELICIO DOS SANTOS" &  sigla_partido == "PMDB" & nome_coligacao == "PMDB/PR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FELICIO DOS SANTOS" &  sigla_partido == "PR" & nome_coligacao == "PMDB/PR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FIGUEIRA" &  sigla_partido == "DEM" & nome_coligacao == "FIGUEIRA 'NOVOS RUMOS'" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FIGUEIRA" &  sigla_partido == "PDT" & nome_coligacao == "FIGUEIRA 'NOVOS RUMOS'" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FIGUEIRA" &  sigla_partido == "PV" & nome_coligacao == "FIGUEIRA 'NOVOS RUMOS'" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FORQUILHA" &  sigla_partido == "PDT" & nome_coligacao == "FORQUILHA COM O POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FORQUILHA" &  sigla_partido == "PMDB" & nome_coligacao == "FORQUILHA COM O POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FORQUILHA" &  sigla_partido == "PPS" & nome_coligacao == "FORQUILHA COM O POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FORQUILHA" &  sigla_partido == "PR" & nome_coligacao == "FORQUILHA COM O POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FORQUILHA" &  sigla_partido == "PRB" & nome_coligacao == "FORQUILHA COM O POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FORQUILHA" &  sigla_partido == "PSB" & nome_coligacao == "FORQUILHA COM O POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FORQUILHA" &  sigla_partido == "PSDB" & nome_coligacao == "FORQUILHA COM O POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FORQUILHA" &  sigla_partido == "PT" & nome_coligacao == "FORQUILHA COM O POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FORQUILHA" &  sigla_partido == "PV" & nome_coligacao == "FORQUILHA COM O POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FRANCISCO MORATO" &  sigla_partido == "PMDB" & nome_coligacao == "PT, PMDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "FRANCISCO MORATO" &  sigla_partido == "PT" & nome_coligacao == "PT, PMDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "GURJAO" &  sigla_partido == "PMN" & composicao_coligacao == "PP/PT/PR/PSDC/PMN/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "GURJAO" &  sigla_partido == "PP" & composicao_coligacao == "PP/PT/PR/PSDC/PMN/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "GURJAO" &  sigla_partido == "PR" & composicao_coligacao == "PP/PT/PR/PSDC/PMN/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "GURJAO" &  sigla_partido == "PSDB" & composicao_coligacao == "PP/PT/PR/PSDC/PMN/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "GURJAO" &  sigla_partido == "PSDC" & composicao_coligacao == "PP/PT/PR/PSDC/PMN/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "GURJAO" &  sigla_partido == "PT" & composicao_coligacao == "PP/PT/PR/PSDC/PMN/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "GURJAO" &  sigla_partido == "PV" & composicao_coligacao == "PP/PT/PR/PSDC/PMN/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "IBICARAI" &  sigla_partido == "PTDOB" & nome_coligacao == "UNIAO PARA VITORIA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "IBICARAI" &  sigla_partido == "PTC" & nome_coligacao == "UNIAO PARA VITORIA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "IBICOARA" &  sigla_partido == "PT" & nome_coligacao == "IBICOARA E NOVOS CAMINHO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "IBICOARA" &  sigla_partido == "PV" & nome_coligacao == "IBICOARA E NOVOS CAMINHO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "IGUATEMI" &  sigla_partido == "PDT" & nome_coligacao == "JUNTOS POR IGUATEMI I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "IGUATEMI" &  sigla_partido == "PMDB" & nome_coligacao == "JUNTOS POR IGUATEMI I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "IGUATEMI" &  sigla_partido == "PP" & nome_coligacao == "JUNTOS POR IGUATEMI I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "IGUATEMI" &  sigla_partido == "PP" & nome_coligacao == "JUNTOS POR IGUATEMI I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ILHA GRANDE" &  sigla_partido == "PT" & nome_coligacao == "SO ASSIM MUDAREMOS A ILHA GRANDE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ILHA GRANDE" &  sigla_partido == "PTC" & nome_coligacao == "SO ASSIM MUDAREMOS A ILHA GRANDE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITAPETINGA" &  sigla_partido == "PSC" & nome_coligacao == "ITAPETINGA VIVENDO MELHOR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITAPETINGA" &  sigla_partido == "PSD" & nome_coligacao == "ITAPETINGA VIVENDO MELHOR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITAPETINGA" &  sigla_partido == "PT" & nome_coligacao == "ITAPETINGA VIVENDO MELHOR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIAIA" &  sigla_partido == "PP" & nome_coligacao == "CONSTRUINDO O FUTURO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIAIA" &  sigla_partido == "PSD" & nome_coligacao == "CONSTRUINDO O FUTURO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIAIA" &  sigla_partido == "PTDOB" & nome_coligacao == "CONSTRUINDO O FUTURO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIBA" &  sigla_partido == "PR" & nome_coligacao == "PSB/PR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIBA" &  sigla_partido == "PSB" & nome_coligacao == "PSB/PR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIRA" &  sigla_partido == "DEM" & nome_coligacao == "PP-PT-PCDOB-PMDB-PTN-PV-DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIRA" &  sigla_partido == "PCDOB" & nome_coligacao == "PP-PT-PCDOB-PMDB-PTN-PV-DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIRA" &  sigla_partido == "PMDB" & nome_coligacao == "PP-PT-PCDOB-PMDB-PTN-PV-DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIRA" &  sigla_partido == "PP" & nome_coligacao == "PP-PT-PCDOB-PMDB-PTN-PV-DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIRA" &  sigla_partido == "PT" & nome_coligacao == "PP-PT-PCDOB-PMDB-PTN-PV-DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIRA" &  sigla_partido == "PTN" & nome_coligacao == "PP-PT-PCDOB-PMDB-PTN-PV-DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ITATIRA" &  sigla_partido == "PV" & nome_coligacao == "PP-PT-PCDOB-PMDB-PTN-PV-DEM" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "JAGUARIPE" &  sigla_partido == "PR" & nome_coligacao == "PR - PTB - PT DO B" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "JAGUARIPE" &  sigla_partido == "PTDOB" & nome_coligacao == "PR - PTB - PT DO B" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "JAGUARIPE" &  sigla_partido == "PTB" & nome_coligacao == "PR - PTB - PT DO B" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "JOAO CAMARA" &  sigla_partido == "DEM" & nome_coligacao == "UNIDOS PRA VENCER" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "JOAO CAMARA" &  sigla_partido == "PPS" & nome_coligacao == "UNIDOS PRA VENCER" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "JUNCO DO SERIDO" &  sigla_partido == "PMDB" & nome_coligacao == "COLIGACAO FILHOS DE JUNCO PROPORCIONAL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "JUNCO DO SERIDO" &  sigla_partido == "PP" & nome_coligacao == "COLIGACAO FILHOS DE JUNCO PROPORCIONAL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "JUNCO DO SERIDO" &  sigla_partido == "PSD" & nome_coligacao == "COLIGACAO FILHOS DE JUNCO PROPORCIONAL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "JUNCO DO SERIDO" &  sigla_partido == "PT" & nome_coligacao == "COLIGACAO FILHOS DE JUNCO PROPORCIONAL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "LARANJAL PAULISTA" &  sigla_partido == "PCDOB" & nome_coligacao == "AVANCA LARANJAL II" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "LARANJAL PAULISTA" &  sigla_partido == "PDT" & nome_coligacao == "AVANCA LARANJAL I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "LARANJAL PAULISTA" &  sigla_partido == "PR" & nome_coligacao %in% c("AVANCA LARANJAL I", "AVANCA LARANJAL II" ))) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "LARANJAL PAULISTA" &  sigla_partido == "PRP" & nome_coligacao == "AVANCA LARANJAL I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "LARANJAL PAULISTA" &  sigla_partido == "PSB" & nome_coligacao == "AVANCA LARANJAL I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "LARANJAL PAULISTA" &  sigla_partido == "PSC" & nome_coligacao == "AVANCA LARANJAL I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "LARANJAL PAULISTA" &  sigla_partido == "PT" & nome_coligacao == "AVANCA LARANJAL I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "LARANJAL PAULISTA" &  sigla_partido == "PTB" & nome_coligacao %in% c("AVANCA LARANJAL I", "AVANCA LARANJAL II" ))) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "LICINIO DE ALMEIDA" &  sigla_partido == "DEM" & nome_coligacao == "PTN/PR/DEM" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "LICINIO DE ALMEIDA" &  sigla_partido == "PR" & nome_coligacao == "PTN/PR/DEM" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "LICINIO DE ALMEIDA" &  sigla_partido == "PTN" & nome_coligacao == "PTN/PR/DEM" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MAIRIPORA" &  sigla_partido == "PSDC" & nome_coligacao == "COLIGACAO PV-PSDC" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MAIRIPORA" &  sigla_partido == "PV" & nome_coligacao == "COLIGACAO PV-PSDC" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARECHAL CANDIDO RONDON" &  sigla_partido == "DEM" & nome_coligacao == "COLIGACAO RONDON LEVADO A SERIO - VEREADORES" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARECHAL CANDIDO RONDON" &  sigla_partido == "PSB" & nome_coligacao == "COLIGACAO RONDON LEVADO A SERIO - VEREADORES" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARECHAL CANDIDO RONDON" &  sigla_partido == "PSD" & nome_coligacao == "COLIGACAO RONDON LEVADO A SERIO - VEREADORES" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARECHAL CANDIDO RONDON" &  sigla_partido == "PSDB" & nome_coligacao == "COLIGACAO RONDON LEVADO A SERIO - VEREADORES" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARECHAL CANDIDO RONDON" &  sigla_partido == "PSL" & nome_coligacao == "COLIGACAO RONDON LEVADO A SERIO - VEREADORES" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARECHAL CANDIDO RONDON" &  sigla_partido == "PTB" & nome_coligacao == "COLIGACAO RONDON LEVADO A SERIO - VEREADORES" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARECHAL CANDIDO RONDON" &  sigla_partido == "PTV" & nome_coligacao == "COLIGACAO RONDON LEVADO A SERIO - VEREADORES" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARECHAL CANDIDO RONDON" &  sigla_partido == "PV" & nome_coligacao == "COLIGACAO RONDON LEVADO A SERIO - VEREADORES" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARINGA" &  sigla_partido == "PCDOB" & composicao_coligacao == "PDT/PT/PSC/PR/PRTB/PV/PPL/PCDOB" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARINGA" &  sigla_partido == "PDT" & composicao_coligacao == "PDT/PT/PSC/PR/PRTB/PV/PPL/PCDOB" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARINGA" &  sigla_partido == "PPL" & composicao_coligacao == "PDT/PT/PSC/PR/PRTB/PV/PPL/PCDOB" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARINGA" &  sigla_partido == "PR" & composicao_coligacao == "PDT/PT/PSC/PR/PRTB/PV/PPL/PCDOB" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARINGA" &  sigla_partido == "PRTB" & composicao_coligacao == "PDT/PT/PSC/PR/PRTB/PV/PPL/PCDOB" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARINGA" &  sigla_partido == "PSC" & composicao_coligacao == "PDT/PT/PSC/PR/PRTB/PV/PPL/PCDOB" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MARINGA" &  sigla_partido == "PT" & composicao_coligacao == "PDT/PT/PSC/PR/PRTB/PV/PPL/PCDOB" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MONTE DO CARMO" &  sigla_partido == "PV" & nome_coligacao == "JUSTICA")) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MONTE DO CARMO" &  sigla_partido == "PMDB" & nome_coligacao == "JUSTICA")) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MONTE DO CARMO" &  sigla_partido == "PPS" & nome_coligacao == "JUSTICA")) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MONTE DO CARMO" &  sigla_partido == "PTB" & nome_coligacao == "JUSTICA")) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MORUNGABA" &  sigla_partido == "PMDB" & nome_coligacao == "PMDB/PTN")) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "MORUNGABA" &  sigla_partido == "PTN" & nome_coligacao == "PMDB/PTN")) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "XAMBRE" &  sigla_partido == "PSDB" & nome_coligacao == "UNIDOS PODEMOS MAIS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "XAMBRE" &  sigla_partido == "PSB" & nome_coligacao == "UNIDOS PODEMOS MAIS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "URUANA" &  sigla_partido == "PSDB" & nome_coligacao == "AGORA E A VEZ DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "URUANA" &  sigla_partido == "PPL" & nome_coligacao == "AGORA E A VEZ DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "URUANA" &  sigla_partido == "PR" & nome_coligacao == "AGORA E A VEZ DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "URUANA" &  sigla_partido == "PSDC" & nome_coligacao == "AGORA E A VEZ DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "URUANA" &  sigla_partido == "PRTB" & nome_coligacao == "AGORA E A VEZ DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "UBERABA" &  sigla_partido == "DEM" & nome_coligacao == "UBERABA MERECE MAIS" & composicao_coligacao == "PMDB/PR/PP/PCDOB/DEM/PTDOB/PSC/PMN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "UBERABA" &  sigla_partido == "PCDOB" & nome_coligacao == "UBERABA MERECE MAIS" & composicao_coligacao == "PMDB/PR/PP/PCDOB/DEM/PTDOB/PSC/PMN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "UBERABA" &  sigla_partido == "PMDB" & nome_coligacao == "UBERABA MERECE MAIS" & composicao_coligacao == "PMDB/PR/PP/PCDOB/DEM/PTDOB/PSC/PMN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "UBERABA" &  sigla_partido == "PMN" & nome_coligacao == "UBERABA MERECE MAIS" & composicao_coligacao == "PMDB/PR/PP/PCDOB/DEM/PTDOB/PSC/PMN")) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "UBERABA" &  sigla_partido == "PP" & nome_coligacao == "UBERABA MERECE MAIS" & composicao_coligacao == "PMDB/PR/PP/PCDOB/DEM/PTDOB/PSC/PMN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "UBERABA" &  sigla_partido == "PR" & nome_coligacao == "UBERABA MERECE MAIS" & composicao_coligacao == "PMDB/PR/PP/PCDOB/DEM/PTDOB/PSC/PMN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "UBERABA" &  sigla_partido == "PSC" & nome_coligacao == "UBERABA MERECE MAIS" & composicao_coligacao == "PMDB/PR/PP/PCDOB/DEM/PTDOB/PSC/PMN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "UBERABA" &  sigla_partido == "PTDOB" & nome_coligacao == "UBERABA MERECE MAIS")) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TIBAGI" &  sigla_partido == "DEM" & nome_coligacao == "PMDB/DEM/PP/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TIBAGI" &  sigla_partido == "PMDB" & nome_coligacao == "PMDB/DEM/PP/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TIBAGI" &  sigla_partido == "PP" & nome_coligacao == "PMDB/DEM/PP/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TIBAGI" &  sigla_partido == "PV" & nome_coligacao == "PMDB/DEM/PP/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TEODORO SAMPAIO" &  sigla_partido == "DEM" & nome_coligacao == "PSD - DEM - PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TEODORO SAMPAIO" &  sigla_partido == "PMDB" & nome_coligacao == "PTB - PR - PMDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TEODORO SAMPAIO" &  sigla_partido == "PR" & nome_coligacao == "PTB - PR - PMDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TEODORO SAMPAIO" &  sigla_partido == "PSD" & nome_coligacao == "PSD - DEM - PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TEODORO SAMPAIO" &  sigla_partido == "PSDB" & nome_coligacao == "PSD - DEM - PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TEODORO SAMPAIO" &  sigla_partido == "PTB" & nome_coligacao == "PTB - PR - PMDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TAQUARAL DE GOIAS" &  sigla_partido == "PDT" & nome_coligacao == "COLIGACAO INOVACAO COM EXPERIENCIA E TRANSPARENCIA" & composicao_coligacao == "PDT/PPS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TAQUARAL DE GOIAS" &  sigla_partido == "PPS" & nome_coligacao == "COLIGACAO INOVACAO COM EXPERIENCIA E TRANSPARENCIA" & composicao_coligacao == "PDT/PPS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TORRINHA" &  sigla_partido == "PDT" & nome_coligacao == "UNIDOS POR TORRINHA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TORRINHA" &  sigla_partido == "PPS" & nome_coligacao == "UNIDOS POR TORRINHA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TORRINHA" &  sigla_partido == "PR" & nome_coligacao == "UNIDOS POR TORRINHA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TORRINHA" &  sigla_partido == "PSD" & nome_coligacao == "UNIDOS POR TORRINHA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TORRINHA" &  sigla_partido == "PSDB" & nome_coligacao == "UNIDOS POR TORRINHA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "TORRINHA" &  sigla_partido == "PSL" & nome_coligacao == "UNIDOS POR TORRINHA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SOUSA" &  sigla_partido == "PMDB" & nome_coligacao == "UNIDOS POR SOUSA I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SOUSA" &  sigla_partido == "PR" & nome_coligacao == "UNIDOS POR SOUSA I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SOUSA" &  sigla_partido == "PSC" & nome_coligacao == "UNIDOS POR SOUSA I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SOUSA" &  sigla_partido == "PT" & nome_coligacao == "UNIDOS POR SOUSA I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SOUSA" &  sigla_partido == "PTC" & nome_coligacao == "UNIDOS POR SOUSA I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SENADOR JOSE PORFIRIO" &  sigla_partido == "DEM" & nome_coligacao == "PARTICIPACAO E DESENVOLVIMENTO" & composicao_coligacao == "PR/DEM/PSB/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SENADOR JOSE PORFIRIO" &  sigla_partido == "PR" & nome_coligacao == "PARTICIPACAO E DESENVOLVIMENTO" & composicao_coligacao == "PR/DEM/PSB/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SENADOR JOSE PORFIRIO" &  sigla_partido == "PSB" & nome_coligacao == "PARTICIPACAO E DESENVOLVIMENTO" & composicao_coligacao == "PR/DEM/PSB/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SENADOR JOSE PORFIRIO" &  sigla_partido == "PV" & nome_coligacao == "PARTICIPACAO E DESENVOLVIMENTO" & composicao_coligacao == "PR/DEM/PSB/PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO PEDRO DA ALDEIA" &  sigla_partido == "PP" & nome_coligacao == "FRENTE PROGRESSISTA TRABALHISTA SUSTENTAVEL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO PEDRO DA ALDEIA" &  sigla_partido == "PR" & nome_coligacao == "FRENTE PROGRESSISTA TRABALHISTA SUSTENTAVEL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO PEDRO DA ALDEIA" &  sigla_partido == "PTN" & nome_coligacao == "FRENTE PROGRESSISTA TRABALHISTA SUSTENTAVEL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO PEDRO DA ALDEIA" &  sigla_partido == "PV" & nome_coligacao == "FRENTE PROGRESSISTA TRABALHISTA SUSTENTAVEL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL DO ARAGUAIA" &  sigla_partido == "PDT" & nome_coligacao == "TRANSPARENCIA E INOVACAO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL DO ARAGUAIA" &  sigla_partido == "PRB" & nome_coligacao == "TRANSPARENCIA E INOVACAO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL DO ARAGUAIA" &  sigla_partido == "PRP" & nome_coligacao == "TRANSPARENCIA E INOVACAO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL DO ARAGUAIA" &  sigla_partido == "PSC" & nome_coligacao == "TRANSPARENCIA E INOVACAO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "DEM" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB")) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PCDOB" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PDT" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PHS" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PP" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PRB" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PRP" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PSB" & nome_coligacao == "SAO MIGUEL DE TODOS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PSC" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PSD" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PSDC" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PTC" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO MIGUEL" &  sigla_partido == "PV" & nome_coligacao == "SAO MIGUEL DE TODOS" & composicao_coligacao == "PRB/PP/PDT/PSC/DEM/PSDC/PHS/PTC/PSB/PV/PRP/PSD/PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO LUIS DO PARAITINGA" &  sigla_partido == "PSD" & nome_coligacao == "COLIGACAO SAO LUIZ EM BOAS MAOS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO LUIS DO PARAITINGA" &  sigla_partido == "PSDB" & nome_coligacao == "COLIGACAO SAO LUIZ EM BOAS MAOS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DO BARREIRO" &  sigla_partido == "DEM" & nome_coligacao == "BARREIRO MERECE ESPERANCA, COMPROMISSO E RESPEITO." )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DO BARREIRO" &  sigla_partido == "PDT" & nome_coligacao == "BARREIRO MERECE ESPERANCA, COMPROMISSO E RESPEITO." )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DO BARREIRO" &  sigla_partido == "PTB" & nome_coligacao == "BARREIRO MERECE ESPERANCA, COMPROMISSO E RESPEITO." )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DO BARREIRO" &  sigla_partido == "PV" & nome_coligacao == "BARREIRO MERECE ESPERANCA, COMPROMISSO E RESPEITO." )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PCDOB" & nome_coligacao == "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PDT" & nome_coligacao ==  "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PR" & nome_coligacao ==  "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PRP" & nome_coligacao ==  "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PSB" & nome_coligacao ==  "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PSD" & nome_coligacao ==  "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PTDOB" & nome_coligacao ==  "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PTB" & nome_coligacao ==  "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PTC" & nome_coligacao ==  "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOSE DA LAPA" &  sigla_partido == "PV" & nome_coligacao ==  "TODOS JUNTOS PARA UM FUTURO MELHOR" & composicao_coligacao == "PDT/PTB/PR/PTC/PSB/PV/PRP/PSD/PCDOB/PTDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JORGE DO PATROCINIO" &  sigla_partido == "DEM" & nome_coligacao == "SAO JORGE EM BOAS MAOS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JORGE DO PATROCINIO" &  sigla_partido == "PSDB" & nome_coligacao == "SAO JORGE EM BOAS MAOS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOAO DA BARRA" &  sigla_partido == "PPS" & nome_coligacao == "SAO JOAO DA BARRA LIVRE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO JOAO DA BARRA" &  sigla_partido == "PR" & nome_coligacao == "SAO JOAO DA BARRA LIVRE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO CARLOS" &  sigla_partido == "DEM" & nome_coligacao == "TODOS JUNTOS MUDAR PARA MELHOR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO CARLOS" &  sigla_partido == "PSDB" & nome_coligacao == "TODOS JUNTOS MUDAR PARA MELHOR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAO CARLOS" &  sigla_partido == "PTDOB" & nome_coligacao == "TODOS JUNTOS MUDAR PARA MELHOR" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTO ANTONIO DO DESCOBERTO" &  sigla_partido == "PSDB" & nome_coligacao == "AVANCA SANTO ANTONIO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTO ANTONIO DO DESCOBERTO" &  sigla_partido == "PTDOB" & nome_coligacao == "AVANCA SANTO ANTONIO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTANA DO MATOS" &  sigla_partido == "PSB" & nome_coligacao == "PARA SANTANA CONTINUAR MUDANDO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTANA DO MATOS" &  sigla_partido == "PT" & nome_coligacao == "PARA SANTANA CONTINUAR MUDANDO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA TEREZA DE GOIAS" &  sigla_partido == "DEM" & nome_coligacao == "UNIDOS PELO POVO, PROGRESSO EM DOBRO I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA TEREZA DE GOIAS" &  sigla_partido == "PP" & nome_coligacao == "UNIDOS PELO POVO, PROGRESSO EM DOBRO I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA TEREZA DE GOIAS" &  sigla_partido == "PSD" & nome_coligacao == "UNIDOS PELO POVO, PROGRESSO EM DOBRO I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA TEREZA DE GOIAS" &  sigla_partido == "PTDOB" & nome_coligacao == "UNIDOS PELO POVO, PROGRESSO EM DOBRO I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA RITA DO TOCANTINS" &  sigla_partido == "PDT" & nome_coligacao == "FRENTE POPULAR DE SANTA RITA II" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA RITA DO TOCANTINS" &  sigla_partido == "PPS" & nome_coligacao == "FRENTE POPULAR DE SANTA RITA II" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA RITA DO TOCANTINS" &  sigla_partido == "PSB" & nome_coligacao == "FRENTE POPULAR DE SANTA RITA II" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA RITA DO TOCANTINS" &  sigla_partido == "PSDB" & nome_coligacao == "FRENTE POPULAR DE SANTA RITA II" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA QUITERIA" &  sigla_partido == "PR" & nome_coligacao == "PSDB - PR - PTN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA QUITERIA" &  sigla_partido == "PSDB" & nome_coligacao == "PSDB - PR - PTN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA QUITERIA" &  sigla_partido == "PTN" & nome_coligacao == "PSDB - PR - PTN" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA HELENA" &  sigla_partido == "DEM" & nome_coligacao == "O TRABALHO FAZ A DIFERENCA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA HELENA" &  sigla_partido == "PMDB" & nome_coligacao == "O TRABALHO FAZ A DIFERENCA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA HELENA" &  sigla_partido == "PR" & nome_coligacao == "O TRABALHO FAZ A DIFERENCA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA HELENA" &  sigla_partido == "PTB" & nome_coligacao == "O TRABALHO FAZ A DIFERENCA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA HELENA" &  sigla_partido == "PTC" & nome_coligacao == "O TRABALHO FAZ A DIFERENCA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA FE DO SUL" &  sigla_partido == "PMDB" & nome_coligacao == "COLIGACAO PMDB, PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA FE DO SUL" &  sigla_partido == "PV" & nome_coligacao == "COLIGACAO PMDB, PV" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA BARBARA DO TUGURIO" &  sigla_partido == "PDT" & nome_coligacao == "PDT - PMDB - PSL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA BARBARA DO TUGURIO" &  sigla_partido == "PMDB" & nome_coligacao == "PDT - PMDB - PSL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTA BARBARA DO TUGURIO" &  sigla_partido == "PSL" & nome_coligacao == "PDT - PMDB - PSL" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SALTO DO CEU" &  sigla_partido == "PP" & nome_coligacao == "SALTO DO CEU NOVO TEMPO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SALTO DO CEU" &  sigla_partido == "PSC" & nome_coligacao == "SALTO DO CEU NOVO TEMPO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAGRES" &  sigla_partido == "PSD" & nome_coligacao == "PSDB/PSD" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SAGRES" &  sigla_partido == "PSDB" & nome_coligacao == "PSDB/PSD" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "RIVERSUL" &  sigla_partido == "PSDB" & nome_coligacao == "COLIGACAO PROPORCIONAL PTB/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "RIVERSUL" &  sigla_partido == "PTB" & nome_coligacao == "COLIGACAO PROPORCIONAL PTB/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "RIVERSUL" &  sigla_partido == "PV" & nome_coligacao == "COLIGACAO PROPORCIONAL PTB/PV/PSDB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "RIO TINTO" &  sigla_partido == "PPS" & nome_coligacao == "RENOVA RIO TINTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "RIO TINTO" &  sigla_partido == "PRP" & nome_coligacao == "RENOVA RIO TINTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "RIO TINTO" &  sigla_partido == "PSB" & nome_coligacao == "RENOVA RIO TINTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "RIO TINTO" &  sigla_partido == "PTDOB" & nome_coligacao == "RENOVA RIO TINTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "RESERVA" &  sigla_partido == "PSDC" & nome_coligacao == "COLIGACAO PV-PSDC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "RESERVA" &  sigla_partido == "PV" & nome_coligacao == "COLIGACAO PV-PSDC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "REDENCAO" &  sigla_partido == "PSB" & nome_coligacao == "POR UMA REDENCAO MELHOR PARA TODOS II" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PORTO MURTINHO" &  sigla_partido == "PSD" & nome_coligacao == "PORTO MURTINHO PARA TODOS I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PORTO MURTINHO" &  sigla_partido == "PSL" & nome_coligacao == "PORTO MURTINHO PARA TODOS I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PORTO MURTINHO" &  sigla_partido == "PT" & nome_coligacao == "PORTO MURTINHO PARA TODOS I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PORTO MURTINHO" &  sigla_partido == "PTC" & nome_coligacao == "PORTO MURTINHO PARA TODOS I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PORTO ACRE" &  sigla_partido == "PMDB" & nome_coligacao == "PORTO ACRE MERECE RESPEITO 1" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PORTO ACRE" &  sigla_partido == "PR" & nome_coligacao == "PORTO ACRE MERECE RESPEITO 1" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PORTO ACRE" &  sigla_partido == "PV" & nome_coligacao == "PORTO ACRE MERECE RESPEITO 1" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PONTA GROSSA" &  sigla_partido == "PDT" & nome_coligacao == "PONTA GROSSA PODE MAIS PREFEITO E VICE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PONTA GROSSA" &  sigla_partido == "PMDB" & nome_coligacao == "PONTA GROSSA PODE MAIS PREFEITO E VICE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PONTA GROSSA" &  sigla_partido == "PV" & nome_coligacao == "PONTA GROSSA PODE MAIS PREFEITO E VICE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PIRAJU" &  sigla_partido == "PMDB" & nome_coligacao == "PMDB - PP" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PIRAJU" &  sigla_partido == "PP" & nome_coligacao == "PMDB - PP" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PAULISTANA" &  sigla_partido == "DEM" & nome_coligacao == "UM NOVO TEMPO SE FAZ COM UNIAO E CREDIBILIDADE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PAULISTANA" &  sigla_partido == "PCDOB" & nome_coligacao == "UM NOVO TEMPO SE FAZ COM UNIAO E CREDIBILIDADE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PAULISTANA" &  sigla_partido == "PSB" & nome_coligacao == "UM NOVO TEMPO SE FAZ COM UNIAO E CREDIBILIDADE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PAULISTANA" &  sigla_partido == "PSDC" & nome_coligacao == "UM NOVO TEMPO SE FAZ COM UNIAO E CREDIBILIDADE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PAULISTANA" &  sigla_partido == "PTC" & nome_coligacao == "UM NOVO TEMPO SE FAZ COM UNIAO E CREDIBILIDADE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PASSA QUATRO" &  sigla_partido == "PPS" & nome_coligacao == "MUDA PASSA QUATRO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PASSA QUATRO" &  sigla_partido == "PSD" & nome_coligacao == "MUDA PASSA QUATRO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PASSA QUATRO" &  sigla_partido == "PT" & nome_coligacao == "MUDA PASSA QUATRO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARISI" &  sigla_partido == "DEM" & nome_coligacao == "PARISI NO RUMO CERTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARISI" &  sigla_partido == "PP" & nome_coligacao == "PARISI NO RUMO CERTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARISI" &  sigla_partido == "PSB" & nome_coligacao == "PARISI NO RUMO CERTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARISI" &  sigla_partido == "PSD" & nome_coligacao == "PRA FRENTE PARISI" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARISI" &  sigla_partido == "PT" & nome_coligacao == "PRA FRENTE PARISI" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARISI" &  sigla_partido == "PTB" & nome_coligacao == "PARISI NO RUMO CERTO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARISI" &  sigla_partido == "PTN" & nome_coligacao == "PRA FRENTE PARISI" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARANHOS" &  sigla_partido == "DEM" & nome_coligacao == "COLIGACAO COMPETENCIA E CREDIBILIDADE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARANHOS" &  sigla_partido == "PSDB" & nome_coligacao == "COLIGACAO COMPETENCIA E CREDIBILIDADE" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAMOTI" &  sigla_partido == "DEM" & nome_coligacao == "PT/PPS/PDT/PRB/PSB/PCDOB/DEM/PSC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAMOTI" &  sigla_partido == "PCDOB" & nome_coligacao == "PT/PPS/PDT/PRB/PSB/PCDOB/DEM/PSC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAMOTI" &  sigla_partido == "PDT" & nome_coligacao == "PT/PPS/PDT/PRB/PSB/PCDOB/DEM/PSC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAMOTI" &  sigla_partido == "PPS" & nome_coligacao == "PT/PPS/PDT/PRB/PSB/PCDOB/DEM/PSC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAMOTI" &  sigla_partido == "PRB" & nome_coligacao == "PT/PPS/PDT/PRB/PSB/PCDOB/DEM/PSC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAMOTI" &  sigla_partido == "PSB" & nome_coligacao == "PT/PPS/PDT/PRB/PSB/PCDOB/DEM/PSC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAMOTI" &  sigla_partido == "PSC" & nome_coligacao == "PT/PPS/PDT/PRB/PSB/PCDOB/DEM/PSC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAMOTI" &  sigla_partido == "PT" & nome_coligacao == "PT/PPS/PDT/PRB/PSB/PCDOB/DEM/PSC" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAIPABA" &  sigla_partido == "PP" & nome_coligacao == "PP - PTN - PRB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAIPABA" &  sigla_partido == "PRB" & nome_coligacao == "PP - PTN - PRB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PARAIPABA" &  sigla_partido == "PTN" & nome_coligacao == "PP - PTN - PRB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PALMEIRAS DO TOCANTINS" &  sigla_partido == "PCDOB" & nome_coligacao == "A VONTADE DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PALMEIRAS DO TOCANTINS" &  sigla_partido == "PSDB" & nome_coligacao == "A VONTADE DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "PALMEIRAS DO TOCANTINS" &  sigla_partido == "PT" & nome_coligacao == "A VONTADE DO POVO" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ORLANDIA" &  sigla_partido == "PCDOB" & nome_coligacao == "COLIGACAO PMDB, PRB, PSD E PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ORLANDIA" &  sigla_partido == "PMDB" & nome_coligacao == "COLIGACAO PMDB, PRB, PSD E PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ORLANDIA" &  sigla_partido == "PRB" & nome_coligacao == "COLIGACAO PMDB, PRB, PSD E PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "ORLANDIA" &  sigla_partido == "PSD" & nome_coligacao == "COLIGACAO PMDB, PRB, PSD E PCDOB" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA MUTUM" &  sigla_partido == "PMDB" & nome_coligacao == "QUEM TRABALHA CONTINUA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA MUTUM" &  sigla_partido == "PR" & nome_coligacao == "QUEM TRABALHA CONTINUA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA MUTUM" &  sigla_partido == "PSC" & nome_coligacao == "QUEM TRABALHA CONTINUA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA MUTUM" &  sigla_partido == "PSD" & nome_coligacao == "QUEM TRABALHA CONTINUA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA MUTUM" &  sigla_partido == "PSDB" & nome_coligacao == "QUEM TRABALHA CONTINUA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA MUTUM" &  sigla_partido == "PTDOB" & nome_coligacao == "QUEM TRABALHA CONTINUA" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA IGUACU" &  sigla_partido == "PMDB" & nome_coligacao == "UMA NOVA IGUACU PARA TODOS" & composicao_coligacao =="PP/PMDB/PSL/PTN/PSC/PR/PRP/PSD" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA IGUACU" &  sigla_partido == "PP" & nome_coligacao == "UMA NOVA IGUACU PARA TODOS" & composicao_coligacao =="PP/PMDB/PSL/PTN/PSC/PR/PRP/PSD" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA IGUACU" &  sigla_partido == "PR" & nome_coligacao == "UMA NOVA IGUACU PARA TODOS" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA IGUACU" &  sigla_partido == "PRP" & nome_coligacao == "UMA NOVA IGUACU PARA TODOS" & composicao_coligacao =="PP/PMDB/PSL/PTN/PSC/PR/PRP/PSD" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA IGUACU" &  sigla_partido == "PSC" & nome_coligacao == "UMA NOVA IGUACU PARA TODOS" & composicao_coligacao =="PP/PMDB/PSL/PTN/PSC/PR/PRP/PSD" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA IGUACU" &  sigla_partido == "PSD" & nome_coligacao == "UMA NOVA IGUACU PARA TODOS" & composicao_coligacao =="PP/PMDB/PSL/PTN/PSC/PR/PRP/PSD" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA IGUACU" &  sigla_partido == "PSL" & nome_coligacao == "UMA NOVA IGUACU PARA TODOS" & composicao_coligacao =="PP/PMDB/PSL/PTN/PSC/PR/PRP/PSD" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA IGUACU" &  sigla_partido == "PTN" & nome_coligacao == "UMA NOVA IGUACU PARA TODOS" & composicao_coligacao =="PP/PMDB/PSL/PTN/PSC/PR/PRP/PSD" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA ALVORADA DO SUL" &  sigla_partido == "PSD" & nome_coligacao == "UNIDOS POR NOVA ALVORADA DO SUL I" )) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "NOVA ALVORADA DO SUL" &  sigla_partido == "PSDB" & nome_coligacao == "UNIDOS POR NOVA ALVORADA DO SUL I" )) %>% 
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTO ANGELO" &  sigla_partido == "PDT" & composicao_coligacao == "PDT/PPL")) %>%
  filter(!(ano_eleicao == 2012 & nome_municipio == "SANTO ANGELO" &  sigla_partido == "PPL" & composicao_coligacao == "PDT/PPL"))

# Put all years together
coalitions_cleaned <- bind_rows(coalitions_not_2012,coalitions_2012_cleaned)

# Test if we eliminated all duplicates
duplicates <- coalitions_cleaned %>%
  group_by(nome_municipio,sigla_uf,ano_eleicao,sigla_partido) %>%
  summarise(n_obs = n()) %>% 
  filter(n_obs != 1) #should be zero


# Coalitions of 1 party (Isolated) -----

isolated <- mayor_coalitions %>% 
  filter(tipo_legenda!= "COLIGACAO") %>% 
  distinct() %>% 
  mutate(nome_coligacao = "PARTIDO_ISOLADO",
         composicao_coligacao = sigla_partido) %>% 
  select(-sigla_partido)

# Read Ideology Scores -----------

# Read Zucco and Power Scores
load(here::here("data","raw","Power_and_Zucco","bls8_estimates_parties.RData"))
ideology <- x 
rm(x)

# Adjust DEM/PFL and CID/PHS
dem <- ideology %>% 
  filter(party == "DEM") %>% 
  mutate(party = "PFL")

cid <- ideology %>% 
  filter(party == "CID") %>% 
  mutate(party = "PHS")

# Use the closest avaiable when party score is not available
parties_to_complete <- ideology %>% 
  filter((party == "PV" & year == "2009") |
           (party == "PSOL" & year == "2009") |
           (party == "PSD" & year == "2013") |
           (party == "PRN" & year == "1993") | 
           (party == "PSTU" & year == "1993") | 
           (party == "PSC" & year == "2017") |
           (party == "PRB" & year == "2017"))

base_dates <- ideology %>% 
  distinct(year) %>% 
  mutate(ind = 1)

base_parties <- ideology %>% 
  distinct(party) %>% 
  mutate(ind = 1)

complete_missing_cases <- base_dates %>% 
  full_join(base_parties, by = "ind") %>% 
  full_join(parties_to_complete, by = c("party")) %>% 
  filter(!is.na(ideo)) %>% 
  filter((year.x<year.y & party %in% c("PV","PSOL","PSD","PSC","PRB")) |
           (year.x>year.y & party %in% c("PSTU","PRN"))) %>% 
  select(year = year.x, party, ideo, ideo.se)

# bind all adjustments
ideology <- ideology %>% 
  bind_rows(dem) %>% 
  bind_rows(cid) %>% 
  bind_rows(complete_missing_cases)

# create year elec to do the joining
ideology <- ideology %>% 
  mutate(year_elec = year-1)


# Read city council party shares data ----

citycouncil_party_shares <- read_rds(here::here("data","processed","elections","citycouncil_party_shares.rds")) 

citycouncil_party_shares_prev <- citycouncil_party_shares %>% 
  mutate(year_elec = ano_eleicao+4) %>% 
  select(codigo_municipio,year_elec,sigla_partido,vote_share_partido) %>% 
  rename(ano_eleicao = year_elec,
         vote_share_partido_prev_elec = vote_share_partido)

citycouncil_party_shares <- citycouncil_party_shares %>% 
  left_join(citycouncil_party_shares_prev, by = c("ano_eleicao","sigla_partido","codigo_municipio"))


# Create coalition index --------

# Isolated cases
isolated_ideo <- isolated %>% 
  left_join(ideology, by = c("composicao_coligacao"="party", "ano_eleicao"="year_elec")) %>% 
  mutate(coalition_ideo_score = ideo) %>% 
  select(-ideo,-ideo.se,-year)

# Coalitions > 1 cases
# Join vote shares
coalitions_ideo <- coalitions_cleaned %>% 
  left_join(select(citycouncil_party_shares,-total_votos_partido,-total_votos_mun,-nome_municipio),
            by = c("sigla_partido",
                   "ano_eleicao",
                   "sigla_ue" = "codigo_municipio",
                   "sigla_uf")) %>% 
  mutate(vote_share_partido_prev_elec = if_else(is.na(vote_share_partido_prev_elec) & ano_eleicao>2000,0,vote_share_partido_prev_elec),
         vote_share_partido = if_else(is.na(vote_share_partido) ,0,vote_share_partido)) 

# Join ideology and compute coalition ideo score
coalitions_ideo <- coalitions_ideo %>% 
  left_join(select(ideology,-year),
            by = c("sigla_partido"="party", "ano_eleicao" = "year_elec")) %>% 
  group_by(ano_eleicao,sigla_ue,sigla_uf,nome_coligacao) %>% 
  mutate(coalition_ideo = weighted.mean(ideo,w = vote_share_partido, na.rm = T),
         coalition_ideo_lagw = weighted.mean(ideo,w = vote_share_partido_prev_elec, na.rm = T)) %>% 
  ungroup() %>% 
  mutate(coalition_ideo = ifelse(is.nan(coalition_ideo),NA,coalition_ideo),
         coalition_ideo_lagw = ifelse(is.nan(coalition_ideo_lagw),NA,coalition_ideo_lagw)) %>% 
  select(ano_eleicao,sigla_uf,sigla_ue,nome_municipio,nome_coligacao,sigla_partido,composicao_coligacao, coalition_ideo, coalition_ideo_lagw)

# Bind coaltions 1 and more than 1 party

mayor_coalitions_ideology <- coalitions_ideo %>% 
  bind_rows(isolated_ideo) %>% 
  distinct(ano_eleicao,sigla_uf,sigla_ue,nome_municipio,nome_coligacao,sigla_partido,composicao_coligacao,coalition_ideo,coalition_ideo_lagw) %>% 
  arrange(ano_eleicao,nome_municipio,nome_coligacao) %>%
  mutate(sigla_partido = ifelse(nome_coligacao == "PARTIDO_ISOLADO",composicao_coligacao,sigla_partido)) %>% 
  ungroup()

check_for_duplicates <- mayor_coalitions_ideology %>% 
  group_by(ano_eleicao,sigla_uf,nome_municipio,sigla_ue,sigla_partido) %>% 
  mutate(n_obs = n()) %>% 
  filter(n_obs>1)

eliminate_isolated <- check_for_duplicates %>% 
  filter(nome_coligacao == "PARTIDO_ISOLADO")

mayor_coalitions_ideology <- mayor_coalitions_ideology %>% 
  anti_join(eliminate_isolated, by = c("ano_eleicao","sigla_uf","nome_municipio","nome_coligacao","composicao_coligacao"))

check_for_duplicates <- mayor_coalitions_ideology %>% 
  group_by(ano_eleicao,sigla_uf,nome_municipio,sigla_ue,sigla_partido) %>% 
  mutate(n_obs = n()) %>% 
  filter(n_obs>1)

# Create a left_coalition dummy

mayor_coalitions_ideology <- mayor_coalitions_ideology %>% 
  mutate(coalition_left = ifelse(coalition_ideo < 0, 1, 0),
         coalition_left_lagw = ifelse(coalition_ideo_lagw < 0, 1, 0))

# save
write_rds(mayor_coalitions_ideology,here::here("data","processed","elections","mayor_coalition_ideology.rds"))


         